home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Internet / News / Alexandra.0.82 / Source / NntpPanelControl.m < prev    next >
Encoding:
Text File  |  1996-01-30  |  13.7 KB  |  591 lines
  1.  
  2. #import "NntpPanelControl.h"
  3. #import "ServerCell.h"
  4. #import "MainWindowControl.h"
  5. #import "NNTP.h"
  6. #import "ArticleSet.h"
  7. #import "NewsgroupSet.h"
  8. #import "KillFilePanel.subproj/KillPanelController.h"
  9. #import "descriptors.h"
  10. #import "ArticleViewControl.h"
  11. #include "regexpr.h"
  12. #import "Alexandra.h"
  13. #import "Composer.h"
  14.  
  15. @implementation NntpPanelControl
  16.  
  17. void handler(DPSTimedEntry te,double now, char *userData)
  18. {
  19.     [((id)userData) newNewsAllServer:(id)userData];
  20. }
  21.  
  22. - appWillTerminate:sender
  23. {
  24.    int i,j;
  25.     id result=self;
  26.     
  27.     result=[Composer confirmTermination];
  28.     if(result){
  29.        for(i=0,j=[nrList count];i<j;i++)
  30.           [[nrList objectAt:i] free];
  31.     }    
  32.   
  33.     return result;
  34. }
  35.  
  36.  
  37. - appDidBecomeActive:sender;
  38.     {
  39.     if([NXApp defaultBoolValue:DEFAULT_CHECKNN_ACTIVATION]){
  40.         [self renewNewNewsTimedEntry:self];
  41.         [self newNewsAllServer:self];
  42.     }
  43.         //[NXApp sendAction:@selector(newNews:) to:nil from:self];
  44.         
  45.     return self;
  46.     }
  47.     
  48.  
  49. - app:sender powerOffIn:(int)ms andSave:(BOOL)save
  50. {
  51.    int i,j;
  52.  
  53.    for(i=0,j=[nrList count];i<j;i++)
  54.       [[nrList objectAt:i] free];
  55.   
  56.     return self;
  57. }
  58.  
  59. - setupMenu:menu;
  60.     {
  61.     id        aCell,aMenu;
  62.     int        n,i;
  63.     
  64.     aMenu=[[menu itemList] cellList];
  65.     n=[aMenu count];
  66.     for(i=0;i<n;i++)
  67.         {
  68.         aCell=[aMenu objectAt:i];
  69.           if(![aCell isEnabled])
  70.             {
  71.             [aCell setEnabled:TRUE];
  72.              if([aCell hasSubmenu])
  73.                 [self setupMenu:[aCell target]];
  74.             else
  75.                 {
  76.                 [aCell setUpdateAction:@selector(menuActive:) forMenu:menu];
  77.                 }
  78.              }
  79.           }
  80.     return self;
  81.        }
  82.     
  83.  
  84.  
  85. - appDidInit:sender
  86. {
  87.    const char *buf;
  88.    BOOL openServers;
  89.    NXSize newCellSize,cellDist;
  90.    NXRect frameRect;
  91.    ServerCell *aCell;
  92.  
  93.    openServers=FALSE;
  94.  
  95.    nrList=[[List alloc] init];
  96.    [serverNameMatrix getFrame:&frameRect];
  97.    newCellSize.height=16.0;
  98.    newCellSize.width = frameRect.size.width;
  99.    cellDist.width=0.0;
  100.    cellDist.height=0.0;
  101.  
  102.    [[serverNameMatrix superview] setAutoresizeSubviews:YES];
  103.    [serverNameMatrix setAutosizing:NX_WIDTHSIZABLE];
  104.    [serverNameMatrix setAutosizeCells:YES];
  105.    [serverNameMatrix setIntercell:&cellDist];
  106.    [[serverNameMatrix setCellSize:&newCellSize] setMode:NX_RADIOMODE];
  107.    [serverNameMatrix setMode:NX_RADIOMODE];
  108.    [serverNameMatrix setEmptySelectionEnabled:YES];
  109.    [serverNameMatrix setDoubleAction:[openButton action]];
  110.  
  111.    aCell=[[ServerCell alloc] init];
  112.    [[[aCell setSlowLink:FALSE] setOpenOnStartup:FALSE] serverClosed:self];
  113.    [serverNameMatrix setPrototype:aCell];
  114.  
  115.    [self setupMenu:mainMenu];
  116.    [NXApp setAutoupdate:TRUE];
  117.  
  118.    //insert servernames in matrix
  119.    if(((buf=[NXApp defaultValue:"NNTPServer"])!=NULL)&&(*buf!='\0')){
  120.       List *cellList;
  121.       int i,j;
  122.  
  123.       if(buf[0]=='\0')
  124.          return self;
  125.       [self addCellsToMatrix:buf];
  126.       cellList=[serverNameMatrix cellList];
  127.       j=[cellList count];
  128.       for(i=0;i<j;i++){
  129.          id aCell=[cellList objectAt:i];
  130.          [aCell readServerOptions];
  131.          if([aCell openOnStartup]==TRUE){
  132.             [serverNameMatrix selectCellAt:i:0];
  133.             [self openServer:self];
  134.             openServers=TRUE;
  135.          }
  136.       }
  137.       if(openServers==TRUE){
  138.          [serverNameMatrix selectCellAt:-1:-1];
  139.       }
  140.    }
  141.    if(openServers==FALSE)
  142.       [[serverNameMatrix window] makeKeyAndOrderFront:self];
  143.  
  144.    //which regular expression syntax to use?
  145.    buf=[NXApp defaultValue:"RegExprSyntax"];
  146.    if(buf!=NULL){
  147.       if(!strcasecmp(buf,"EMACS"))
  148.          re_set_syntax(RE_SYNTAX_EMACS);
  149.       if(!strcasecmp(buf,"AWK"))
  150.          re_set_syntax(RE_SYNTAX_AWK);
  151.       else if(!strcasecmp(buf,"EGREP"))
  152.          re_set_syntax(RE_SYNTAX_EGREP);
  153.       else if(!strcasecmp(buf,"GREP"))
  154.          re_set_syntax(RE_SYNTAX_GREP);
  155.    }
  156.  
  157.     [ERROR_MANAGER addObserver:self 
  158.                         selector:@selector(renewNewNewsTimedEntry:)
  159.                         forError:ENOTEPrefsChanged];
  160.                         
  161.     [self renewNewNewsTimedEntry:self];
  162.     
  163.     [[NXApp appListener] setServicesDelegate:self];
  164.      
  165.    return self;
  166. } 
  167.  
  168. - addCellsToMatrix:(const char *)serverlist
  169. {
  170.    char buf[200];
  171.    const char *ptr;
  172.    int r,c;
  173.    id aCell;
  174.  
  175.    ptr=serverlist;
  176.    while((ptr!=NULL)&&(ptr[0]!='\0')){
  177.       sscanf(ptr,"%s",buf);
  178.       [serverNameMatrix getNumRows:&r numCols:&c];
  179.       [serverNameMatrix addRow];
  180.       aCell=[serverNameMatrix cellAt:r :0];
  181.       [aCell setStringValue:buf];
  182.  
  183.       ptr+=strlen(buf);
  184.       if(ptr[0]==' ')
  185.          ptr++;
  186.    }
  187.    [serverNameMatrix sizeToCells];
  188.     
  189.    return self;
  190. }
  191.  
  192. - addNewServer:sender
  193. {
  194.    int i;
  195.    int r,c;
  196.    ServerCell *aCell;
  197.    const char *aString;
  198.  
  199.    aString=[newServerName stringValue];
  200.     if(strchr(aString,' ')){
  201.         NXRunAlertPanel("ALEXANDRA","No space characters allowed in the nntp server name.",NULL,NULL,NULL);
  202.         return self;
  203.     }
  204.    if(aString[0]!='\0'){
  205.       [serverNameMatrix getNumRows:&r numCols:&c];
  206.       for(i=0;i<r;i++)
  207.          if(strcmp([[serverNameMatrix cellAt:i :0] stringValue],aString)==0)
  208.             return self;
  209.       [self addCellsToMatrix:aString];
  210.       aCell=[serverNameMatrix cellAt:r :0];
  211.       [aCell setOpenOnStartup:([newServerOOS state]==1)];
  212.       [aCell setSlowLink:([newServerSL state]==1)];
  213.         [aCell setUserString:[newServerUser stringValue] ];
  214.       [aCell setPasswdString:[newServerPassword stringValue] ];
  215.       [serverNameMatrix display];
  216.       [self addServerToDefaultDB:aString];
  217.       [aCell writeServerOptions];
  218.    }
  219.    [[newServerName controlView] selectTextAt:0];
  220.    return self;
  221. }
  222.  
  223. - serverWillClose:sender
  224. {
  225.    int i,j;
  226.    List *cellList;
  227.    const char *servername=[[sender nntpServer] serverName];
  228.  
  229.    cellList=[serverNameMatrix cellList];
  230.    j=[cellList count];
  231.    for(i=0;i<j;i++){
  232.       ServerCell *aCell=[cellList objectAt:i];
  233.       if(strcmp([aCell stringValue],servername)==0){
  234.          [aCell serverClosed:self];
  235.          break;
  236.       }
  237.    }
  238.    [nrList removeObject:sender];
  239.    [serverNameMatrix display];
  240.  
  241.    return self;
  242. }
  243.  
  244. - openServer:sender
  245. {
  246.    int i,j;
  247.  
  248.    [serverNameMatrix getNumRows:&j numCols:&i];
  249.    for(i=0;i<j;i++){
  250.       ServerCell *aCell=[serverNameMatrix cellAt:i :0];
  251.       if(([aCell state]==1)&&([aCell isOpen]==FALSE)){
  252.          //open server
  253.          if(starter==nil)
  254.             if([NXApp loadNibSection:"newsreader.nib" owner:self withNames:NO]==nil)
  255.                return nil;
  256.          if([starter connectNNTP:[aCell stringValue] slowLink:[aCell slowLink]]==TRUE){
  257.             [nrList addObject:starter];
  258.             [aCell serverOpened:self];
  259.             starter=nil;
  260.          }
  261.       }
  262.    }
  263.    [serverNameMatrix display];
  264.    return self;
  265. }
  266.  
  267. - removeServer:sender
  268. {
  269.    int i,j;
  270.  
  271.     [serverNameMatrix getNumRows:&j numCols:&i];
  272.    for(i=j-1;i>=0;i--){
  273.       ServerCell *aCell=[serverNameMatrix cellAt:i :0];
  274.       if(([aCell state]==1)&&([aCell isOpen]==FALSE)){
  275.          [self removeServerFromDefaultDB:[aCell stringValue]];
  276.          [serverNameMatrix removeRowAt:i andFree:YES];
  277.       }
  278.    }
  279.    [[serverNameMatrix sizeToCells] display];
  280.    [self serverSelected:self];
  281.    return self;
  282. }
  283.  
  284. - serverSelected:sender
  285. {
  286.    List *selList;
  287.    int j;
  288.    
  289.    selList=[serverNameMatrix getSelectedCells:nil];
  290.    j=[selList count];
  291.    if(j==1){
  292.       ServerCell *aCell=[selList objectAt:0];
  293.       [[newServerOOS setState:(int)[aCell openOnStartup]] display];
  294.       [[newServerSL setState:(int)[aCell slowLink]] display];
  295.         [newServerUser setStringValue:[aCell user]];
  296.         [newServerPassword setStringValue:[aCell pass]];
  297.       [newServerName takeStringValueFrom:[selList lastObject]];
  298.       [[newServerName controlView] selectTextAt:0];
  299.       [openButton setEnabled:![aCell isOpen]];
  300.         [removeButton setEnabled:![aCell isOpen]]; 
  301.    }
  302.    else {
  303.       [[newServerOOS setState:0] display];
  304.       [[newServerSL setState:0] display];
  305.       [newServerName setStringValue:""];
  306.         [newServerPassword setStringValue:""];
  307.         [newServerUser setStringValue:""];
  308.       [openButton setEnabled:FALSE];
  309.         [removeButton setEnabled:FALSE];
  310.    }
  311.       
  312.    [selList free];
  313.    return self;
  314. }
  315.  
  316.  
  317. - windowDidUpdate:(Window *)sender;
  318.     {
  319.     const char    *uname;
  320.     int            i,r,c;
  321.     
  322.     if([NXApp keyWindow]!=[serverNameMatrix window])
  323.         return self;
  324.  
  325.     uname=[newServerName stringValue];
  326.     [serverNameMatrix getNumRows:&r numCols:&c];
  327.     for(i=0;i<r;i++)
  328.         if(!strcmp([[serverNameMatrix cellAt:i:0] stringValue],uname))
  329.             break;
  330.     if(i==r){
  331.         [serverNameMatrix selectCellAt:-1:-1];
  332.         [openButton setEnabled:FALSE];
  333.         [removeButton setEnabled:FALSE];
  334.         //[newServerUser setStringValue:""];
  335.         //[newServerPassword setStringValue:""];
  336.    }
  337.     else{
  338.         ServerCell *aCell=[serverNameMatrix cellAt:i:0];
  339.         [serverNameMatrix selectCellAt:i:0];
  340.       [openButton setEnabled:![aCell isOpen]];
  341.         [removeButton setEnabled:![aCell isOpen]];
  342.         //[newServerUser setStringValue:[aCell user]];
  343.         //[newServerPassword setStringValue:[aCell pass]];
  344.    }
  345.  
  346.     [addButton setEnabled:((i==r)&&(uname[0]!='\0'))];
  347.  
  348.     return self;
  349.     }
  350.         
  351.  
  352. - openOnStartup:sender
  353. {
  354.    id selCell=[serverNameMatrix selectedCell];
  355.  
  356.    if(selCell!=nil){
  357.       [selCell setOpenOnStartup:(BOOL)[newServerOOS state]];
  358.       [selCell writeServerOptions];
  359.    }
  360.    return self;
  361. }
  362.  
  363. - slowLink:sender
  364. {
  365.   id selCell=[serverNameMatrix selectedCell];
  366.  
  367.    if(selCell!=nil){
  368.       [selCell setSlowLink:(BOOL)[newServerSL state]];
  369.       [selCell writeServerOptions];
  370.    }
  371.    return self;
  372. }
  373.  
  374. - (BOOL)menuActive:menuCell
  375. {
  376.    id currentDelegate=[[NXApp mainWindow] delegate];
  377.    BOOL askIfEnable=[currentDelegate isKindOf:[MainWindowControl class]];
  378.    BOOL menuEnabled=[menuCell isEnabled];
  379.    BOOL enable;
  380.  
  381.    if(askIfEnable==TRUE){
  382.       const char *menuTitle=[menuCell title];
  383.       const char *action=[actionTable valueForStringKey:menuTitle];
  384.       if(action!=NULL){
  385.          if(strcmp(action,"sorting")==0)
  386.             enable=[currentDelegate sortCellEnabled:menuCell];
  387.          else if(strcmp(action,"viewselector")==0)
  388.             enable=[currentDelegate selectViewCellEnabled:menuCell];
  389.          else if(strcmp(action,"headerfield")==0)
  390.             enable=[currentDelegate headermodeCellEnabled:menuCell];
  391.          else{
  392.             SEL aSel=sel_getUid(action);
  393.             int e=(int)[currentDelegate perform:aSel];
  394.             enable=(e==1);
  395.             if(enable&&([menuCell action]==@selector(killAuthor:)))
  396.                enable=[currentDelegate killAuthorEnabled];
  397.          }
  398.       }
  399.       else
  400.          enable=TRUE;
  401.    }
  402.    else
  403.       enable=FALSE;
  404.  
  405.    if(enable!=menuEnabled){
  406.       [menuCell setEnabled:enable];
  407.       return TRUE;
  408.    }
  409.    return FALSE;
  410. }
  411.  
  412. - addServerToDefaultDB:(const char *)name
  413. {
  414.    char *buf;
  415.    const char *server=[NXApp defaultValue:"NNTPServer"];
  416.    
  417.    if((server==NULL)||(server[0]=='\0')){
  418.       [NXApp setDefault:"NNTPServer" to:name];
  419.       return self;
  420.    }
  421.    buf=(char *)malloc((strlen(name)+strlen(server)+2)*sizeof(char));
  422.    strcpy(buf,server);
  423.    if(server!=NULL)
  424.       strcat(buf," ");
  425.    strcat(buf,name);
  426.    
  427.    [NXApp setDefault:"NNTPServer" to:buf];
  428.    free(buf);
  429.  
  430.    return self;
  431. }
  432.  
  433. - removeServerFromDefaultDB:(const char *)name
  434. {
  435.    int i;
  436.    char *buf;
  437.    char *tail;
  438.    const char *server=[NXApp defaultValue:"NNTPServer"];
  439.  
  440.    tail=strstr(server,name);
  441.    if(tail!=NULL){
  442.       i=strlen(server)-strlen(tail);
  443.       buf=(char *)malloc(strlen(server)*sizeof(char));
  444.       tail+=strlen(name);
  445.       if(tail[0]==' ')
  446.          tail++;
  447.       else if(i>0)
  448.          i--;
  449.       strncpy(buf,server,i);
  450.       buf[i]='\0';
  451.       strcat(buf,tail);
  452.       [NXApp setDefault:"NNTPServer" to:buf];
  453.       free(buf);
  454.    }
  455.    
  456.    return self;
  457. }
  458.  
  459. - showKillPanel:sender
  460. {
  461.    if(![[[NXApp mainWindow] delegate] isKindOf:[MainWindowControl class]])
  462.       return self;
  463.  
  464.    if(killPanelController==nil)
  465.       if([NXApp loadNibSection:"KillPanel.nib" owner:self withNames:NO]==nil){
  466.          killPanelController=nil;
  467.          return nil;
  468.       }
  469.    [killPanelController showPanel:[NXApp mainWindow]];
  470.    return self;
  471. }
  472.  
  473. - showArticleInspector:sender
  474. {
  475.     static id articleInspector=nil;
  476.     
  477.     if(!articleInspector)
  478.         articleInspector=[[ArticleHeaderController alloc] init];
  479.         
  480.     [[articleInspector window] makeKeyAndOrderFront:self];
  481.         
  482.     return self;
  483. }
  484.  
  485. - setUser:sender
  486. {
  487.    id selCell=[serverNameMatrix selectedCell];
  488.  
  489.    if(selCell!=nil){
  490.       [selCell setUserString:[newServerUser stringValue]];
  491.       [selCell writeServerOptions];
  492.    }
  493.    return self;
  494. }
  495.  
  496. - setPasswd:sender
  497. {
  498.    id selCell=[serverNameMatrix selectedCell];
  499.  
  500.    if(selCell!=nil){
  501.       [selCell setPasswdString:[newServerPassword stringValue]];
  502.       [selCell writeServerOptions];
  503.    }
  504.    return self;
  505. }
  506.  
  507. - newNewsAllServer:sender
  508. {
  509.     int i,j=[nrList count];
  510.     
  511.     for(i=0;i<j;i++)
  512.         [[[nrList objectAt:i] newsgroupSet] newNews:self];
  513.  
  514.     return self;
  515. }
  516.  
  517. - renewNewNewsTimedEntry:sender
  518. {
  519.     int interval;
  520.     
  521.     [self removeNewNewsTimedEntry:self];
  522.         
  523.     interval=[NXApp defaultIntValue:DEFAULT_CHECKNN_PERIOD];
  524.     if(interval>0)
  525.         newNewsTE=DPSAddTimedEntry(interval*60.0,(DPSTimedEntryProc)handler,
  526.                                             self,NX_BASETHRESHOLD);
  527.     
  528.     return self;
  529. }
  530.  
  531. - removeNewNewsTimedEntry:sender
  532. {
  533.     if(newNewsTE){
  534.         DPSRemoveTimedEntry(newNewsTE);
  535.         newNewsTE=0;
  536.     }
  537.     
  538.     return self;
  539. }
  540.  
  541. - performURLService:pboard userData:(const char *)data error:(char **)err
  542. {
  543.     char *buf,*url;
  544.     int length,i,j;
  545.     
  546.     [pboard types];
  547.     [pboard readType:NXAsciiPboardType data:&buf length:&length];
  548.     
  549.     if(length>5){
  550.         id aCell=nil;
  551.         
  552.         url=malloc((length+2)*sizeof(char));
  553.         strncpy(url,buf,length);
  554.         url[length]='\0';
  555.         
  556.         [serverNameMatrix getNumRows:&j numCols:&i];
  557.         for(i=0;i<j;i++){
  558.             id someCell=[serverNameMatrix cellAt:i :0];
  559.             if([someCell isOpen]){
  560.                 aCell=someCell;
  561.                 break;
  562.             }
  563.         }
  564.         
  565.         if(aCell){
  566.             id mc=nil;
  567.             for(i=0,j=[nrList count];i<j;i++){
  568.                 id aMainController=[nrList objectAt:i];
  569.                 if(!strcmp([[aMainController nntpServer] serverName],
  570.                                 [aCell stringValue])){
  571.                     mc=aMainController;
  572.                     break;
  573.                 }
  574.             }
  575.             [[mc newsgroupSet] selectURL:url];
  576.         }
  577.         else
  578.             NXRunAlertPanel("Service","Can't select article. No connection to any server.",NULL,NULL,NULL);
  579.             
  580.         free(url);
  581.     }
  582.     else
  583.         NXRunAlertPanel("Service","No valid URL.",NULL,NULL,NULL);
  584.         
  585.     [pboard deallocatePasteboardData:buf length:length];
  586.  
  587.     return self;
  588. }
  589.     
  590. @end
  591.